clear;
hold off;
clearplot;

COTA = 0.000001;
MIN_ITER = 50;

% Establecer semilla
rand("seed", 3001);
i = 1;
do
	beneficios(i) = nuevo_beneficio_diario();
	if (i > 1)
		medias(i) = asimilar_media(medias(i - 1), beneficios(i), i - 1);
		varianzas(i) = asimilar_varianza(mean(medias), medias, i);
	else
		medias(1) = beneficios(1);
		varianzas(1) = 0;
	end
	i++;
until(i > MIN_ITER && abs(varianzas(i-1) - varianzas(i-2)) < COTA);

save ../datos/e2b.txt i medias varianzas;
